Class TestTermination 


	Private Sub Class_Initialize
		call OverrideFunctions()
	End Sub


  
  Private Sub Class_Terminate 	 
	If not Frame_WorkBook is nothing Then
		Frame_WorkBook.save
		Frame_WorkBook.Close true
		Frame_ExcelApp.Quit  
		Set Frame_WorkBook = nothing 
		Set Frame_ExcelApp = nothing 
		'RST_Test_Plan.close
		'set RST_Test_Plan = nothing
		'Conn_Data_Resource.Close	
		'set Conn_Data_Resource = nothing
	End If	
	call UnRegisterFunctions()
	
  End Sub
End Class

function [new TestTermination]
	set [new TestTermination] = new TestTermination
end function